(comint-replace-by-expanded-history-before-point): Advance point

unconditionally.

diff --git a/lisp/comint.el b/lisp/comint.el
index dedc99a5144badafe9d9cb904ff17cd1701ab774..2e05548ae40f375a0780016632f03df76e86e911 100644 (file)
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -924,10 +924,11 @@ See `comint-replace-by-expanded-history'.  Returns t if successful."
                             (comint-previous-matching-input-string-position
                              (concat pref (regexp-quote exp)) 1))))
                 (if (null pos)
-                    (or silent
-                        (progn (message "Not found")
-                               (goto-char (match-end 0))
-                               (ding)))
+                    (progn
+                      (goto-char (match-end 0))
+                      (or silent
+                          (progn (message "Not found")
+                                 (ding))))
                   (setq comint-input-ring-index pos)
                   (replace-match
                    (comint-args (ring-ref comint-input-ring pos)